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This Memo, written in the style and convention of A.I. Memo. No. 116A, 
may be considered an addendum thereto. It should prove to be a welcome 
upcating on the LISP syst 



Allocator 



CLSSCTS SU3R 



In the TUe-Shariog version, the allocator astts COHi? 
Instead of MiMTOP? . The response should be the nuaber of 
2000-word blocks of aeaory desired, although the allocator 
will force this nuaber to be at least 20, so that MEHTOP Is 
at least 37777, See C0R3 below. 



(CIXJGTH D) Is sa*ne as calling CUttCTH with o U 
accumulator C. Returns a aon-LISP number. See "plotter" 

below* 



coat; su33 



In TS LISP, (COSE n) will attempt to set the program's CORE 
allocation to a 2000-word blocics, but in no case will It 
malce a re-ailocati . which leaves less than one blocX of 
Binary Progran space (Bin. Prog. Spc. occupies the 
higher addresses of the prograa). Thus if one needs more 
Bin. Prog. Spc. he aay call COM (thereby extending the 
program's M3KT0P) aad set BPEKD appropriately. If there Is 
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not enough leaory available to iiake an Increased 
allocation, no change Is jiade and HIL Is returned; 
otherwise COSE returns as value the current CORE 
allocation. 



Current I/O Device 

LI5P has bookkeeping rooa for one input file, opened by 
DH£AO t and one output file, opened by 3VHITE. There is an 
internal register herein called current device naae, that 
retaembers which auxiUUry storage device contains the 
newly opened file, and this register n±y be changed by 
optional arguments to UHEAD, UKRITE and JKILL. An open 
read file is closed by reading an E-O-F character, ani an 
open write file is closed by executing a UFIW (4*t,)> 



descb isoaa 



Part of the PicPac package (see below). If there is an 
argument, its value is assuaed to be an array name and 
DESCK (for "describe") produces a list of tea numbers, 
associated with the array: (xdlra ydl& lowx lowy dx dy hash 
vd light data) where the last three numbers give 
information about the vidisector used, the lighting, and 
the aode of the lata. Humbert three through six are in 
floating point, and "hash" is irrelevant, xdia and riU 
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are the x anl y diaensior* (see PICA3HAY). If mere is no 
arguaeat 5iven t the array descried la the one which the 
aost recent call to READPIC read Train. The array store! on 
tape vhica serves as the data source for the call to 
READPIC will la general hare a description differeat from 
that of the array In core. (DS5CR ML) Is StL so that 
(DESCS (8EAPPIC arr lowx lowy delta)) produces either a 
description or HIL depending on whether or not the read was 
successful. (See READPIC). 



DSSCRX LSOBK 

Sue as DESCR except that nunbera three through six are 
coofertei to fixed point, assuming a grid of 10000 by 
10000. 



FIXIA SM 

(P3SHJ P flUk), as a LAP instruction, converts the 
fixed-point machine nuaber in I Into a LISP fixei-polnt 
nuaber* 



PIX2 SW 



(PU5HJ ? FIXE) as a LAP ins traction, contorts the 
floatingpoint -aaehlne number In 1 Into a LISP flxed-polat 
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nxp sojri 



number. 

A predicate, non-HIL only for S-expressions which 
fixed-point numbers. 



itOiT 5TK 



;L0AT? SDSH 



IMP* SUM 



(PUSHJ ? FLOAT) as a LAP instruction, converts the 
fixed-point machine number in 1 into a floating-point 
machine number. In EXPR's to float a fixed-point LISP 
number, do (PLUS nuaber 0*0)- 



A predicate, non-MIL only for ^-expressions which are 
floating-point numbers. 



Reads the input multiplexor channel specified by its 
argument. (See >)PX). 



i pl ion 



'Jpei;* the plotter aul IMlUlWca it fur laolUAS 4U|ilnJf 
iUU. mtufM SIL if the plotter i% bui*y tirri T Uhurwiw. 



usp a 



LP£S 5UdR 



HAX L5G5R 



RDtfiBB SUBR 



dzs no arguaeats. Reads tbe 340 light pen scanner aal 
returns (count > (x * 7)) where count Is the nuiber of 
times the light pen was seen (since the last call to LPEK 
or since the program's beginning) and x and y are the 
average abscissa and ordinate values of the light pen when 
seen. 



Returns the (numerical) maxioua of any number of arguments 
using contagious floating arlthoetlc. Thus (MAX 12 4.0) Is 
10.0. 



If HB4BEB i 1) li not Hit. then ll returns i' where (EQUAL 
x (CAfl 1')) holds and 1* is some tall of 1; i.e. there Is 
an l" such that 1 Is ISCOHC l" 1'). 



VU LSOBB 



As aboTe for KAI, but returns the alnloun. 
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M?l SJiiii 



r-EXTPLDT S'Jrfl 



rfviD soait 



(HPX TJ opens dp the multiplexor I/O Device for subsequent 
D/A and A/D use. (m MIL) closes It. 



Moves the plotter paper to a clean section. To be used 
after a call to PtOTLIST U.v.). 



Heads tae net* video processor and returns a floating-point 
ouaber (with an Information content of ten bits) which is 
an Inverse linear aeasure of the light intensity at the 
selected vldlsector point. (The manual switch located on 
the rideo processor should be in the LIM position when 
ICTID is used. Use XTFIX when il is In the "LOG** position). 
The two arguments are respectively abscissa and ordinate 
values for the iAage dissector, and must be fixed-point. 
Returns -1.0 for the din or dark cutoff condition. 



XY?IX 53BR 



As above for HT1D, but is essentially a logrlthaic aeasure 
of intensity, scaled between 1 and 1777. Returns a fixed 
point number. (HVFIX aM SV1D will differ at aost in the 
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three Least significant bits dejaoiing on the state of the 
"Llb-LOv" switch. See HVID). Beturn for the dii or dark 
cutoff condition. 



AlSil SUB* 

Used to aet certain progruuiablc coalitions for the new 
video processor The arguments are In order* 



filter - three kits (C - 7) to designate the 
presenco or ab&tnce of the color filt«rs over the 
lens. 

confidence - should be 0,1*2, or 3, Determines 
the speed and accuracy or the video processor, 
being the slowest but most accurate. 

resolution - the number of equalI>-epAC«J linei 
over the field of view - max Una of 40003. 
(Actually, the rideo processor al«ys dissects 
the scene onto a 20000 bj 20000 grid. This 
merely provides a scale factor for the arguments 
to STID and MUX). Tor many reasons 1030 to 
10000 is an extraordinarily good range for this 
Argument. 

dU - should be in the range 0-17 inclusive. 
Selects one of sixteen dim cut off levels. See a 
nac&er for sore eiucllation. 

xyz - Zero means the video processor receives its 
input from the new ITT vidisector (TVC); non-zero 
aeans the signal cones froa the old ITT 
vidisector (?VB). 



UL nj be used for any of the above arguaetts, Id which 
case the specified condition is not changed. Initially all 
conditions are eicept resolution, which is 2000. Returns 
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the valje of the device status register. 



PICARRAY FSUBS 

Declares an image array for use with PlcPac* Its use is 
exactly the saie as the function ARRAY: Its arguments are 
respectively: 



the array UH 
UL 

the x dimension tor number of rows) 
the y dimension {or number of coiuans) 



The array elements are accessed as usual - {arrayoame n 
evaluating to the n t ath entry in the array. 



i'iC^-VC 



In an effort to utilize taped vidisector scenes, several 
functions for performing the necessary I/O have been added 
to LIS?* (See PICARilAX, HW,DPIC and WHITEPIC). There are 
obvious advantages for the debugging programmer to having 
standard, well-described scenes available, as It were, 
through a slaulated vidisector. Before using the routines, 
however, one must become aware of the image conventions of 
PlcPac- Images (or scenes) are considered to be 
rectangular sub-portions of a unit square, and hence image 
co-ordinates are floating-point numbers between 0.0 and 
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plot sum 



1.0. This facilitates the aapping of an image space onto 
various 1/0 devices. Heedless to sax, soae dlscretiied 
approximation to tbe Inge is what 1$ actually stored on 
tape, so that the co-ordinates aentioned In READPIC really 
refer to the nearest lattice point in tbe iftage space 
recorded on tape. Doce an array has been read in, however, 
there is no further use of image space co-ordinates except 
for tbe description produced by DESCR. Reference to the 
array is done as usual on ordinary LISP arrays. Tbe PicPac 
system will be aalntained by Urry Krafcauer, Rooa 819, 545 
Technology Square. 



{PLOT n) is the sane as calling PLOTC with n In accumulator 
C# (See A.I- Keao. So. 125). if n = or 200 and the 
plotter is not open after tbe conund has been executed, 
tnea MIL is returned- 



PLOTLIST SUK3 



If tbe argument is an array name, tbe contents of the array 
are plotted as they would be displayed on the 340 scope. 
(See "Display - See also XEXTPLOT). 
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Hotter 



?J1AD lsum 



The CALCQXP plotter is available as an output device for 
LISP. In addition to the PLOTLIST feature and PLOT 
described above, IP causes LISP output to be plotted (la 
character node) and |U turns off this output- Before using 
it as such, it is advisable to execute a sequence of 
COMiflds such as (PLOT 31 {PLOT 10 (PLOT 22))) in order to 
aafce the results more legible. 



Heads one S-expression froi the current input device (see 
"inpulr-Output - and "Current I/O Device"). Takes or 1 
arguments. If character is read and no argument given, 
teletype-input is r&-selected; otherwise on reading S-O-F a 
non-printing error is caused and the value of the arguaent 
is returned as the talue of the most recent ERHSET. 

tfuabers are atoms differentiated as seen by their 
font. Floating point numbers follow exactly the s&ae 
format described in the LISP 1.5 Programmer's Manual and 
should not contain non-deciaal digits. 0,1, ... ,8,9,A,B, 
... ,2 are used as the first 36 digits, so that IBASE aay 
reasonably be any nuaber froa 1 to 36. inclusive. Let a 
and b be any string of the above digits. There are four 
ferns for unsigned fixed point numbers: 
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a Is Interpreted as an Integer base IBA5E 



a. is Interpreted as an integer base 10. 
"atb" is a*(IBASi: exp b) 
"a**"is a*U exp b) 

A fixed point number Is thus an unslgnei fixed-point number 
preceeded by an optional "+" or"-" slgnt bat if digits 
higher than 9 appear In the number, the preceding sign is 
obligatory. (Hence any atom whose first character Is + 
Of * is A hUdbef, except the single-character atoas % 
and "-" themselves)* (The remainder of the coaaents under 
REA:. beginning "Typing a rubout...", in A. I. Memo. Ho* 
116A page 18 t still apply). 



R2A3PIC ISffBS 

rieads into the array specified by the first argument (which 
must have been declared by PICARRAY)* receiving data froa 
the device and file selected by the most recent UREAD. The 
second and third arguments specify lower-left x- and y- 
co-ordlnate3 respectively; the fourth arguient Is a delta d 
su;h that adjacent entries in the array are filled by 
incrementing the Image co-ordinates by an amount d. (See 
PicPac for an elucidation of Image space co-ordinates). An 
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HLViTIK SU3:i 



iPOP SJ2k 



alternative forai Is to specify separate deltas for the 1 
and y directions: (RSADPIC array Lorn lowy d) or (READIC 
array lowx lowy dx dy). The coordinates of the upperwlght 
point of the image area read la are given by upx = lovi + 
xdla*dx and upy = lowy * ydia*dy, where xdia and ydim are 
the x-and-y dimensions respectively of "array". AH 
arguments except "array" are assumed to be floating. In 
accord with the PlcPac convention; however fixed-point 
numbers lay be used; It vill be assumed that they refer to 
a 10000 by 10000 grid and they will be floated accordingly. 
If a section of the requested Input area, i.e., the 
rectangle from (lowx,lowy) to (upx.upy). Is not recorded on 
the input file, then READPIC prints an error coaaent and 
returns MIL; otherwise It returns the naae "array". 



*or time-sharing LISP, returns the number of microseconds 
of CPU time used by the current Job, as a fixed-point LISP 
number, accurate to about 50 microseconds. 



(Sfttf) restores tin- ao*t recent batch of special p41 
bindings. This Is the way an 4XPK calls 3PKCSTH (q.v). 
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SPU3H LSUttt 



*~. 



(SPUSB atom V atoa V ...) saves up the current value* of 
the atoms aton ... atom on the special p41 and for each 
one performs la effect (SETQ atoa V). This Is the *ay an 
EXPS can cail SPHCBIHD (q.?)'. 



3L£2? SUBS 



SXALLSUH SDBR 



(SLEEP q) causes the proaraa to stop temporarily and taXe a 
nap for n thirtieths of a secoiri. 



Is noo-XIL only If its arguaent is a saall-uuaber, which is 
represented as a pointer equal to number + 1. 



TDU SUM 



For ti«-sharln« LISP, returns the tiie counter from the TS 
systsa, as a fixed point LISP nuobar. Currently, this is 
toe number of thirtieths of a second that the system has 
been running. There nay soon be a feature to read the date 
and a real ti«e* as accurately as possible. Hote that In 
TS LISP there Is no SSTTIMS. 
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! jA&\)) RUN 



Taxes WO or three arguments. The first two are file 
naaes, the first of which must be 9 if the file has only 
one name* Typing |Q or evaluating (IOC |Q) changes LISP'f 
input froi teletype to the current auxilliary storage 
device and file as specified by the last DREAD. If URBAD 
has a third argument, it updates the current device name as 
follows: If it is non-nuaerlc, then it may by DTI, UT2, 
UT3 or 074 for Dectape and DDO, DD1, DD2, etc. for disk. 
If it is numeric Chen only the last character of the 
current device is changed. Initially, UTO is current; thus 
before switching Input a DREAD should be evaluated with 
third argument, for exaaple, BT2. See "Current I/O 
Device"* Eeturns the curreot device name. 



wain reran 



Selects an auxilliary storage device and opens an output 
file on it under the naae .LISP. OUTPUT. If there is no 
argument, the current device is selected. Otherwise the 
Current device is updated in the manner described under 
UREA3 anl then selected. Returns current device naae. If 
there are no more free files on it, prints the error 
aessa^e "TAP2 TOLL - . See "Current I/O Device." 
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UKIL6 FSJbR 



uiiILL F5UBB 



VI DI suaR 



Closer the current output file aod changes Its naae to that 

specified by the two arguments to 0PIL2- Returns the 

current device naoie unless the file failed, in which case 
it returns fill 



Flushes the current I/O device U.v.). In time-sharing 
LISP, this tatces sense only if the current device is a 
DECtape - random results »*y otttt If one tries to flush 
disc. If there is an argument, the current device is 
updated In the Banner described under URSAD and then 
flushed- Returns the aaae of the deilce flushed. 



Tajces two fixed-point arguaents* Returns a fixed-point 
nuaber *hich is an inverse linear measure of intensity on 
the old ITT vldisector tTT3> at the point specified by the 
tvo arguments, using the old video processor which is 
slaved to the MO scope display. 



VIi)I£0 5 r J38 



WIT76Q 3UBK 



LISP 10 



Uses VIDI. Returns a losrltt«llC tB&iOro of Intensity as a 

fixed-point fluaber between a»l 400. 



Outputs to the 750. See J, Holloway for note Information. 



wam?ic fsibk 

(tfHITEPIC array) writes out on tbe currently open output 
device tto entire array specified by tUe argument (In 
biuary Luage sole). In general, WRITZPIC is preceded by a 
tfWitIT£ and followed by a OFluS* 



